home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / lang / PPCsmalltalk.lha / PPCSmallTalk / prelude / semaphore.st < prev    next >
Text File  |  1986-10-19  |  530b  |  25 lines
  1. Class  Semaphore :List
  2. | excessSignals |
  3.  
  4. [  new
  5.     excessSignals <- 0
  6.  
  7. |  new: aNumber
  8.     excessSignals <- aNumber
  9.  
  10. |  signal
  11.     <primitive 148>.    "start atomic action"
  12.     (self isEmpty)
  13.       ifTrue: [excessSignals <- excessSignals + 1]
  14.       ifFalse: [self removeFirst unblock].
  15.     <primitive 149>        "end atomic action"
  16.  
  17. |  wait
  18.     <primitive 148>.    "start atomic actions"
  19.     (excessSignals = 0)
  20.       ifTrue: [self addLast: selfProcess.
  21.            selfProcess block]
  22.       ifFalse: [excessSignals <- excessSignals - 1].
  23.     <primitive 149>        "end atomic actions"
  24. ]
  25.